home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 1.iso / fb386 / egcg1 / g12.bas < prev    next >
BASIC Source File  |  1991-10-18  |  598b  |  24 lines
  1. 100 ' G12 T.WAKAMATSU
  2. 110 DIM X(20),Y(20)
  3. 120 FOR I=1 TO 10:READ H(I):NEXT I
  4. 130 DATA 4,3,6,5,8,7,10,9,2,1
  5. 140 CLS:C(1)=5:C(2)=3:C(3)=0:D(1)=10:D(2)=4:D(3)=0:PI=3.14159!
  6. 150 FOR P=1 TO 3
  7. 160   K=36:F=0
  8. 170   FOR L=0 TO 180 STEP 4
  9. 180     N=0:J=F:F=F+2
  10. 190     FOR I=L TO 360+L STEP K
  11. 200       J=100-J:M=I+J
  12. 210       T=M/180*PI
  13. 220       N=N+1
  14. 230       X(N)=239*COS(T)+320
  15. 240       Y(N)=239*SIN(T)+240
  16. 250     NEXT I
  17. 260     PSET(X(1),Y(1)):H=C(P):G=D(P)
  18. 270     FOR I=1 TO 10
  19. 280       H=G-H
  20. 290       LINE-(X(H(I)),Y(H(I))),PSET,H
  21. 300     NEXT I
  22. 310   NEXT L
  23. 320 NEXT P
  24.